C!T ROM 3/ct-rom iiib.zip/ct-rom iiib/WINDOWS/DIVERSEN/WINE02BX/BYTECOMP.ELC

Text File | 1993-03-28 | 67KB | 262 lines

;;; compiled by @win386 on Sat Mar 13 01:57:55 1993
;;; from file c:/src/lucid-19.4/lisp/bytecomp/bytecomp.el
;;; emacs version 19.3 Lucid.
;;; bytecomp version 2.08; 27-aug-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.

(if (and (boundp 'emacs-version)
     (or (and (boundp 'epoch::version) epoch::version)
         (string-lessp emacs-version "19")))
    (error "This file was compiled for Emacs19."))

(byte-code "└┬├!¼ä─┼!ê╞╟!½ä¼å╔Ö½£╞╩!¼ä╩ \n╦╠Mê┬═!½å╬═K!¼ä═╧Mê┬ç" ["2.09; 16-jan-93." byte-compile-version fboundp defsubst load-library "bytecomp-runtime" boundp epoch::version emacs-version "19" baud-rate compiled-function-p (lambda (x) "Emacs 18 doesn't have these." nil) member subrp #[(elt list) "½î    @ܼåAë¼tç" [list elt] 3 "like memq, but uses equal instead of eq.  In v19, this is a subr."]] 2)
(defvar emacs-lisp-file-regexp (byte-code "┴=½é┬ç├ç" [system-type vax-vms "\\.EL\\(;[0-9]+\\)?$" "\\.el$"] 2) "\
*Regexp which matches the extension of elisp source-files.
You may want to redefine defun byte-compile-dest-file to match this.")
(byte-code "└┴!¼ä┴┬Mê├─┼\"ê├╞┼\"ê├╟┼\"ê├╚┼\"ç" [fboundp byte-compile-dest-file #[(filename) "└    !\n├=½è    ─┼╞    \"O╟Pç┼    \"½ê    ─ëöO╔Pç    ╟Pç" [file-name-sans-versions filename system-type vax-vms 0 string-match ";" "c" emacs-lisp-file-regexp ".elc"] 5 "Converts an emacs-lisp source-filename to a compiled-filename."] autoload byte-compile-inline-expand "byte-optimize" byte-optimize-form byte-optimize-lapcode byte-compile-unfold-lambda] 3)
(defvar byte-compile-verbose (byte-code "?¡â    \nVç" [noninteractive baud-rate search-slow-speed] 2) "\
*Non-nil means print messages describing progress of byte-compiler.")
(defvar byte-compile-emacs18-compatibility (byte-code "└┴!½â    «â\n├Öç" [boundp epoch::version emacs-version "19"] 2) "\
*If this is true, then the byte compiler will generate .elc files which will
work in generic version 18 emacses without having bytecomp-runtime.el loaded.
If this is false, the generated code will be more efficient in emacs 19, and
will be loadable in emacs 18 only if bytecomp-runtime.el is loaded.
See also byte-compile-generate-emacs19-bytecodes.")
(defvar byte-compile-generate-emacs19-bytecodes (byte-code "└┴!½â    «â\n├Ö?ç" [boundp epoch::version emacs-version "19"] 2) "\
*If this is true, then the byte-compiler will generate bytecode which
makes use of byte-ops which are present only in emacs19.  Code generated
this way can never be run in emacs18, and may even cause it to crash.")
(defvar byte-optimize t "\
*If nil, no compile-optimizations will be done.
Compilation will be faster, generated code will be slower and larger.
This may be nil, t, 'byte, or 'source.  If it is 'byte, then only byte-level
optimizations will be done; if it is 'source, then only source-level
optimizations will be done.")
(defvar byte-compile-delete-errors t "\
*If non-nil, the optimizer may delete forms that may signal an error
(variable references and side-effect-free functions such as CAR).")
(defvar byte-optimize-log nil "\
*If true, the byte-compiler will log its optimizations into *Compile-Log*.
If this is 'source, then only source-level optimizations will be logged.
If it is 'byte, then only byte-level optimizations will be logged.")
(defvar byte-compile-error-on-warn nil "\
*If true, the byte-compiler will report warnings with `error' instead
of `message.'")
(byte-code "└┬ç" [(redefine callargs free-vars unresolved) byte-compile-warning-types nil] 1)
(defvar byte-compile-warnings t "\
*List of warnings that the byte-compiler should issue (t for all).
Elements of the list may be be:

  free-vars    references to variables not in the current lexical scope.
  unresolved    calls to unknown functions.
  callargs    lambda calls with args that don't match the definition.
  redefine    function cell redefined from a macro to a lambda or vice
        versa, or redefined to take a different number of arguments.

See also the macro byte-compiler-options.")
(defvar byte-compile-generate-call-tree nil "\
*If this is true, then the compiler will collect statistics on what
functions were called and from where.  This will be displayed after the
compilation completes.  If it is non-nil, but not t, you will be asked
for whether to display this.

The call tree only lists functions called, not macros used. Those functions
which the byte-code interpreter knows about directly (eq, cons, etc.) are
not reported.

The call tree also lists those functions which are not known to be called
(that is, to which no calls have been compiled.)  Functions which can be
invoked interactively are excluded from this list.")
(defconst byte-compile-call-tree nil "\
Alist of functions and their call tree.
Each element looks like

  (FUNCTION CALLERS CALLS)

where CALLERS is a list of functions that call FUNCTION, and CALLS
is a list of functions for which calls were generated while compiling
FUNCTION.")
(defvar byte-compile-call-tree-sort 'name "\
*If non nil, the call tree is sorted.
The values 'name, 'callers, 'calls, 'calls+callers means to sort on
the those fields.")
(defvar byte-compile-overwrite-file t "\
If nil, old .elc files are deleted before the new is saved, and .elc
files will have the same modes as the corresponding .el file.  Otherwise,
existing .elc files will simply be overwritten, and the existing modes
will not be changed.  If this variable is nil, then an .elc file which
is a symbolic link will be turned into a normal file, instead of the file
which the link points to being overwritten.")
(defvar byte-compile-constants nil "\
list of all constants encountered during compilation of this form")
(defvar byte-compile-variables nil "\
list of all variables encountered during compilation of this form")
(defvar byte-compile-bound-variables nil "\
list of variables bound in the context of the current form; this list
lives partly on the stack.")
(defconst byte-compile-initial-macro-environment '((byte-compiler-options lambda (&rest forms) (apply 'byte-compiler-options-handler forms)) (eval-when-compile lambda (&rest body) (list 'quote (eval (byte-compile-top-level (cons 'progn body))))) (eval-and-compile lambda (&rest body) (eval (cons 'progn body)) (cons 'progn body))) "\
The default macro-environment passed to macroexpand by the compiler.
Placing a macro here will cause a macro to have different semantics when
expanded by the compiler as when expanded by the interpreter.")
(defvar byte-compile-macro-environment byte-compile-initial-macro-environment "\
Alist of (MACRONAME . DEFINITION) macros defined in the file which is being
compiled.  It is (MACRONAME . nil) when a macro is redefined as a function.")
(defvar byte-compile-function-environment nil "\
Alist of (FUNCTIONNAME . DEFINITION) functions defined in the file which
is being compiled (this is so we can inline them if necessary).  It is
(FUNCTIONNAME . nil) when a function is redefined as a macro.")
(defvar byte-compile-unresolved-functions nil "\
Alist of undefined functions to which calls have been compiled (used for
warnings when the function is later defined with incorrect args).")
(byte-code "└┴!¼é┬└ç" [boundp byte-compile-tag-number 0] 2)
(defvar byte-compile-output nil "\
Alist describing contents to put in byte code string.
Each element is (INDEX . VALUE)")
(defvar byte-compile-depth 0 "\
Current depth of execution stack.")
(defvar byte-compile-maxdepth 0 "\
Maximum depth of execution stack.")
(defconst byte-code-vector nil "\
An array containing byte-code names indexed by byte-code values.")
(defconst byte-stack+-info nil "\
An array with the stack adjustment for each byte-code.")
(byte-code "└┴Mê┬├Mç" [byte-defop (macro . #[(opcode stack-adjust opname &optional docstring) "└┴N«ê┬└┴├─┼\"#╞┴N«ê┬╞┴├─┼\"#ë    \nIê    Iê*½î═\n    ╬╧QFç═\n    Eç" [byte-code-vector tmp-compile-time-value put make-vector 256 nil byte-stack+-info v2 v1 opcode opname stack-adjust docstring defconst "Byte code opcode " "."] 8]) byte-extrude-byte-code-vectors (macro . #[nil "└┴ë┬N├ë┬N»─┴┬┼#ê─├┬┼#êç" [setq byte-code-vector tmp-compile-time-value byte-stack+-info put nil] 6])] 2)
(defconst byte-varref 8 "\
Byte code opcode for variable reference.")
(defconst byte-varset 16 "\
Byte code opcode for setting a variable.")
(defconst byte-varbind 24 "\
Byte code opcode for binding a variable.")
(defconst byte-call 32 "\
Byte code opcode for calling a function.")
(defconst byte-unbind 40 "\
Byte code opcode for unbinding special bindings.")
(byte-code "└┬─╞╚    ╩╠╬╨╥╘╓╪┌▄▐α!Γ#Σ%µ'Φ)Ω+∞-ε/≡1≥3⌠5÷7°9·;ⁿ=■?ü@AüBCüDEüFGüHIüJKüLMüNOüPQüRSüTUüVWüXYüZ[ü\\]ü^_ü`aübcüdeüfgühiüjkülmünoüpqürsütuüvwüxyüz{ü|}ü~üÇüüéâüäàüåçüêëüèïüîìüÄÅ└ç" [56 byte-nth 57 byte-symbolp 58 byte-consp 59 byte-stringp 60 byte-listp 61 byte-eq 62 byte-memq 63 byte-not 64 byte-car 65 byte-cdr 66 byte-cons 67 byte-list1 68 byte-list2 69 byte-list3 70 byte-list4 71 byte-length 72 byte-aref 73 byte-aset 74 byte-symbol-value 75 byte-symbol-function 76 byte-set 77 byte-fset 78 byte-get 79 byte-substring 80 byte-concat2 81 byte-concat3 82 byte-concat4 83 byte-sub1 84 byte-add1 85 byte-eqlsign 86 byte-gtr 87 byte-lss 88 byte-leq 89 byte-geq 90 byte-diff 91 byte-negate 92 byte-plus 93 byte-max 94 byte-min 95 byte-mult 96 byte-point 97 byte-mark-OBSOLETE 98 byte-goto-char 99 byte-insert 100 byte-point-max 101 byte-point-min 102 byte-char-after 103 byte-following-char 104 byte-preceding-char 105 byte-current-column 106 byte-indent-to 107 byte-scan-buffer-OBSOLETE 108 byte-eolp 109 byte-eobp 110 byte-bolp 111 byte-bobp 112 byte-current-buffer 113 byte-set-buffer 114 byte-read-char-OBSOLETE 115 byte-set-mark-OBSOLETE 116 byte-interactive-p 117 byte-forward-char 118 byte-forward-word 119 byte-skip-chars-forward 120 byte-skip-chars-backward 121 byte-forward-line 122 byte-char-syntax 123 byte-buffer-substring 124 byte-delete-region 125 byte-narrow-to-region 126 byte-widen 127 byte-end-of-line] 1)
(defconst byte-constant2 129 "\
Byte code opcode for reference to a constant with vector index >= byte-constant-limit.")
(defconst byte-goto 130 "\
Byte code opcode for unconditional jump.")
(defconst byte-goto-if-nil 131 "\
Byte code opcode to pop value and jump if it's nil.")
(defconst byte-goto-if-not-nil 132 "\
Byte code opcode to pop value and jump if it's not nil.")
(defconst byte-goto-if-nil-else-pop 133 "\
Byte code opcode to examine top-of-stack, jump and don't pop it if it's nil,
otherwise pop it.")
(defconst byte-goto-if-not-nil-else-pop 134 "\
Byte code opcode to examine top-of-stack, jump and don't pop it if it's non nil,
otherwise pop it.")
(defconst byte-return 135 "\
Byte code opcode to pop a value and return it from `byte-code'.")
(defconst byte-discard 136 "\
Byte code opcode to discard one value from stack.")
(defconst byte-dup 137 "\
Byte code opcode to duplicate the top of the stack.")
(defconst byte-save-excursion 138 "\
Byte code opcode to make a binding to record the buffer, point and mark.")
(defconst byte-save-window-excursion 139 "\
Byte code opcode to make a binding to record entire window configuration.")
(defconst byte-save-restriction 140 "\
Byte code opcode to make a binding to record the current buffer clipping restrictions.")
(defconst byte-catch 141 "\
Byte code opcode for catch.  Takes, on stack, the tag and an expression for the body.")
(defconst byte-unwind-protect 142 "\
Byte code opcode for unwind-protect.  Takes, on stack, an expression for the unwind-action.")
(defconst byte-condition-case 143 "\
Byte code opcode for condition-case.  Takes, on stack, the variable to bind,
an expression for the body, and a list of clauses.")
(defconst byte-temp-output-buffer-setup 144 "\
Byte code opcode for entry to with-output-to-temp-buffer.
Takes, on stack, the buffer name.
Binds standard-output and does some other things.
Returns with temp buffer on the stack in place of buffer name.")
(defconst byte-temp-output-buffer-show 145 "\
Byte code opcode for exit from with-output-to-temp-buffer.
Expects the temp buffer on the stack underneath value to return.
Pops them both, then pushes the value back on.
Unbinds standard-output and makes the temp buffer visible.")
(defconst byte-unbind-all 146 "\
Byte code opcode to unbind back to the beginning of
this frame.  Not used yet, but wil be needed for tail-recursion elimination..")
(byte-code "└┬─╞╚    ╩╠╬╨╥╘╓╪┌▄▐α!Γ#Σ%µ'Φ)Ω+∞-ε/≡1≥3⌠5÷7°9·;└ç" [147 byte-set-marker 148 byte-match-beginning 149 byte-match-end 150 byte-upcase 151 byte-downcase 152 byte-string= 153 byte-string< 154 byte-equal 155 byte-nthcdr 156 byte-elt 157 byte-member 158 byte-assq 159 byte-nreverse 160 byte-setcar 161 byte-setcdr 162 byte-car-safe 163 byte-cdr-safe 164 byte-nconc 165 byte-quo 166 byte-rem 167 byte-numberp 168 byte-integerp 170 byte-rel-goto 171 byte-rel-goto-if-nil 172 byte-rel-goto-if-not-nil 173 byte-rel-goto-if-nil-else-pop 174 byte-rel-goto-if-not-nil-else-pop 175 byte-listN 176 byte-concatN 177 byte-insertN] 1)
(defconst byte-constant 192 "\
Byte code opcode for reference to a constant.")
(defconst byte-constant-limit 64 "\
Exclusive maximum index usable in the `byte-constant' opcode.")
(defconst byte-goto-ops '(byte-goto byte-goto-if-nil byte-goto-if-not-nil byte-goto-if-nil-else-pop byte-goto-if-not-nil-else-pop) "\
those byte-codes whose offset is a pc.")
(byte-code "└┬ç" [(byte-goto-if-nil byte-goto-if-not-nil) byte-goto-always-pop-ops nil] 1)
(defconst byte-rel-goto-ops '(byte-rel-goto byte-rel-goto-if-nil byte-rel-goto-if-not-nil byte-rel-goto-if-nil-else-pop byte-rel-goto-if-not-nil-else-pop) "\
byte-codes for relative jumps.")
(byte-code "└┬─ç" [[nil nil nil nil nil nil nil nil byte-varref nil nil nil nil nil nil nil byte-varset nil nil nil nil nil nil nil byte-varbind nil nil nil nil nil nil nil byte-call nil nil nil nil nil nil nil byte-unbind nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil byte-nth byte-symbolp byte-consp byte-stringp byte-listp byte-eq byte-memq byte-not byte-car byte-cdr byte-cons byte-list1 byte-list2 byte-list3 byte-list4 byte-length byte-aref byte-aset byte-symbol-value byte-symbol-function byte-set byte-fset byte-get byte-substring byte-concat2 byte-concat3 byte-concat4 byte-sub1 byte-add1 byte-eqlsign byte-gtr byte-lss byte-leq byte-geq byte-diff byte-negate byte-plus byte-max byte-min byte-mult byte-point byte-mark-OBSOLETE byte-goto-char byte-insert byte-point-max byte-point-min byte-char-after byte-following-char byte-preceding-char byte-current-column byte-indent-to byte-scan-buffer-OBSOLETE byte-eolp byte-eobp byte-bolp byte-bobp byte-current-buffer byte-set-buffer byte-read-char-OBSOLETE byte-set-mark-OBSOLETE byte-interactive-p byte-forward-char byte-forward-word byte-skip-chars-forward byte-skip-chars-backward byte-forward-line byte-char-syntax byte-buffer-substring byte-delete-region byte-narrow-to-region byte-widen byte-end-of-line nil byte-constant2 byte-goto byte-goto-if-nil byte-goto-if-not-nil byte-goto-if-nil-else-pop byte-goto-if-not-nil-else-pop byte-return byte-discard byte-dup byte-save-excursion byte-save-window-excursion byte-save-restriction byte-catch byte-unwind-protect byte-condition-case byte-temp-output-buffer-setup byte-temp-output-buffer-show byte-unbind-all byte-set-marker byte-match-beginning byte-match-end byte-upcase byte-downcase byte-string= byte-string< byte-equal byte-nthcdr byte-elt byte-member byte-assq byte-nreverse byte-setcar byte-setcdr byte-car-safe byte-cdr-safe byte-nconc byte-quo byte-rem byte-numberp byte-integerp nil byte-rel-goto byte-rel-goto-if-nil byte-rel-goto-if-not-nil byte-rel-goto-if-nil-else-pop byte-rel-goto-if-not-nil-else-pop byte-listN byte-concatN byte-insertN nil nil nil nil nil nil nil nil nil nil nil nil nil nil byte-constant nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] byte-code-vector [nil nil nil nil nil nil nil nil 1 nil nil nil nil nil nil nil -1 nil nil nil nil nil nil nil -1 nil nil nil nil nil nil nil 0 nil nil nil nil nil nil nil 0 nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil -1 0 0 0 0 -1 -1 0 0 0 -1 0 -1 -2 -3 0 -1 -2 0 0 -1 -1 -1 -2 -1 -2 -3 0 0 -1 -1 -1 -1 -1 -1 0 -1 -1 -1 -1 1 1 0 0 1 1 0 1 1 1 0 0 1 1 1 1 1 0 1 0 1 0 0 -1 -1 0 0 -1 -1 -1 1 0 nil 1 0 -1 -1 -1 -1 -1 -1 1 0 0 0 -1 -1 -2 0 -1 0 -2 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 0 -1 -1 0 0 -1 -1 -1 0 0 nil 0 -1 -1 -1 -1 nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil 1 nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] byte-stack+-info nil] 1)
(fset 'byte-compile-lapcode #[(lap) "└┴ëëëëëë    \nâ
\n@@\n@A9¼ë╦╠\"êé
═=½Ä    áêBé
>½¥    ╧\\ë    AB┴JBBBëBé
:½║A╨=½»W½Å    T    \\B¬√    ╧\\    ╥╙\"╘╒\"BBB¬ΓJX½æ    ╪\\    JBB¬╔┘W½É    T    J\\B¬│┌W½ô    ╪\\    J┘\\BB¬Ü    ╧\\    ╥╙\"╘╒\"J█\\BBB\nAë\nä½ßƒ└ë½╠@ë@:½╢\nA@?\n@½¡\nA@\n@Z▌X½í▐W½£@@AAíê@A@A@ Z\\áêS\në@\\áêAë¼4!½å└U½\"┴½└@ë@:½▒A@½æë@A@@@Z▐\\áê¬Ü@A@    A╘    ╒\"áê╥    ╙\"áêAë¼@)ƒ░
.ç" [0 nil tmp rel rest patchlist bytes off op pc lap error "non-symbolic opcode %s" TAG byte-goto-ops 3 byte-constant byte-constant-limit lsh -8 logand 255 byte-constant2 byte-listN 2 6 256 7 byte-compile-generate-emacs19-bytecodes -129 128 byte-rel-goto byte-goto byte-optimize] 9 "\
Turns lapcode into bytecode.  The lapcode is destroyed."])
(byte-code "└└├─Mê└╞╟Mê╚╔Mê╩╦Mê╠═!¼â╬╧╨Mê╤╥Mê╙╘Mê╒╓Mê╫╪Mç" [nil byte-compile-current-form byte-compile-current-file byte-compile-log (macro . #[(format-string &rest args) "└┴┬├─┼╞╚╔\n\"BBDEFç" [and byte-optimize (memq byte-optimize-log '(t source)) let ((print-escape-newlines t) (print-level 4) (print-length 4)) byte-compile-log-1 format format-string mapcar #[(x) "9½ä┴Dçç" [x prin1-to-string] 2] args] 11]) byte-compile-last-warned-form byte-compile-log-1 #[(string &optional fill) "½▒    ¼ê\n½ú\n=¼₧─┼╞«ü╟    ½É    ;½à╚    P¬ê╔╩    !P¬ü╦#!ê─╠\"ê¬Γè╬╧!qêdbê    ¼ê\n½╡\n=¼░    ½ç╨╤ ╥▒ê╙½å┼╘\"¬ü╟▒ê    ½Æ    ;½ç╚    ▒ê¬ç╔╩    !▒ê╒cê╓╥▒ê½Æ╪╥\"¼ï┘┌▌▐!ê*)▐ëç" [noninteractive byte-compile-current-file byte-compile-last-warned-form byte-compile-current-form message format "While compiling %s%s:" "toplevel forms" " in file " " in buffer " buffer-name "" "  %s" string get-buffer-create "*Compile-Log*" "\n\n" current-time-string "\n" "While compiling " "%s" ":\n" "  " fill string-match "     " 78 fill-column fill-prefix fill-paragraph nil] 7] byte-compile-warn #[(format &rest args) "└┴    \n#½à─┼    \"ç╞╟    P╚\"ê    «ä╩╦    \"ç" [apply format args byte-compile-error-on-warn error "%s" byte-compile-log-1 "** " t noninteractive message "Warning: %s"] 4] byte-compile-obsolete #[(form) "@┴N├─@\n@;½ä\n@¬à┼╞\n@\"#ê\nA«ü╟!)ç" [form byte-obsolete-info new byte-compile-warn "%s is an obsolete function; %s" format "use %s instead." byte-compile-normal-call] 6] boundp byte-compiler-legal-options ((optimize byte-optimize (t nil source byte) val) (file-format byte-compile-emacs18-compatibility (emacs18 emacs19) (eq val 'emacs18)) (new-bytecodes byte-compile-generate-emacs19-bytecodes (t nil) val) (delete-errors byte-compile-delete-errors (t nil) val) (verbose byte-compile-verbose (t nil) val) (warnings byte-compile-warnings ((callargs redefine free-vars unresolved)) val)) byte-compiler-options-handler #[(&rest args) "└ëëëâ┬@:½ï@AA¼à@A¼å╞╟@\"ê@@@A@₧ë¼à╞╔\"ê╩\n8ë@:½σ└╦@╠>¡æ═\nA@J╬=½â    ¬ä\nA@J!    @½╢@ë    >½ï\"¬£╥=½à╦¬æ╙=½à╘¬å╞╒    #êAë¼J\nA@Lê+¬ò    >¼å╞╓    #ê\nA@╫╪\n8!LêAëä,└ç" [nil choices desc val key args error "malformed byte-compiler-option %s" byte-compiler-legal-options "unknown byte-compiler option %s" 2 cons (+ -) copy-sequence t ret handler this + - delq "%s only accepts %s." "%s must be one of %s." eval 3] 6] byte-compile-fdefinition #[(name macro-p) "½â    ¬ü\n₧Aë«╪ë9½ñ╟!½₧K9¼ÉK:¼è¼Å╚K!½êKë¬Y¼è╚!½ä¬ƒ:¡Ü@╔=½àA¬Ä?¡è@╩=?¡é)*ç" [macro-p byte-compile-macro-environment byte-compile-function-environment list name env fn fboundp compiled-function-p macro autoload] 3] byte-compile-arglist-signature #[(arglist) "└┴뽫@╞=½ç¼ƒ└¬¢@╟=½èA½æ╚┴¬ï½àT¬âTAë¼R\n?¡ë½à\\¬ü+Bç" [0 nil restp opts args arglist &optional &rest t] 4] byte-compile-arglist-signatures-congruent-p #[(old new) "@    @V«ò    A¼äA«ìA¡ë    A¡àA    AW?ç" [new old] 2] byte-compile-arglist-signature-string #[(signature) "A¼å┴┬@\"ç@AU½å┴├@\"ç┴─@A#ç" [signature format "%d+" "%d" "%d-%d"] 4]] 2)
(fset 'byte-compile-callargs-warn #[(form) "└    @┬\"«à└    @├\"ë¡É┼ó╞=½àA@¬â╟H!    AG    ½╕    @W¼ìA¡µ    AV¡▐╩╦    @    ë╠U½â═¬ü╬    @W½â╧¬ü╨╤!&¬╗╥    @!«╡    @=««    @₧    AGë½ôA>«ûABí¬ï    @DBë*+ç" [byte-compile-fdefinition form nil t def byte-compile-arglist-signature lambda 0 sig ncall byte-compile-warn "%s called with %d argument%s, but %s %s" 1 "" "s" "requires" "accepts only" byte-compile-arglist-signature-string fboundp byte-compile-current-form byte-compile-unresolved-functions n cons] 9 "\
warn if the form is calling a function with the wrong number of arguments."])
(fset 'byte-compile-arglist-warn #[(form macrop) "└    A@\n\"ë½╟─ó┼=½àA@¬â╞H!─╟    8!    ╩    \"«ú╦╠    @═=½â╬¬ü╧    A@╨    !    ╤ܽâ╥¬ü╙╨!&*¬φ    A@₧╒ëëëë¡╒─╟    8!█▄A!▌\"ë@ƒ@@W¼ìA½ñAV½£╦▐    A@╨!▀ܽâα¬üß╨B!%êΓ\"ë-)ç" [byte-compile-fdefinition form macrop old byte-compile-arglist-signature lambda 0 2 sig2 sig1 byte-compile-arglist-signatures-congruent-p byte-compile-warn "%s %s used to take %s %s, now takes %s" defun "function" "macro" byte-compile-arglist-signature-string (1 . 1) "argument" "arguments" byte-compile-unresolved-functions nil max min sig nums calls sort copy-sequence < "%s being defined to take %s%s, but was previously called with %s" (1 . 1) " arg" " args" delq] 9 "\
warn if the function or macro is being redefined with a different
number of arguments."])
(fset 'byte-compile-warn-about-unresolved-functions #[nil "└    >½±┬A½α┼┼G╚!    ╩    ½─╠    @@!G═\\\\    A    SW½Å╧    ¡ü╨R¬N╤    ¡ü╨RG╥\\¬8╙╘\"ê,¬è½ç╙╒@@\"ê)╩ç" [unresolved byte-compile-warnings "the end of the data" byte-compile-current-form byte-compile-unresolved-functions "The following functions are not known to be defined: " str L reverse rest nil s symbol-name 2 fill-column " " "," "\n    " 4 byte-compile-warn "%s" "the function %s is not known to be defined."] 4 "\
If we have compiled any calls to functions which are not known to be
defined, issue a warning enumerating them.  You can disable this by including
'unresolved in variable byte-compile-warnings."])
(byte-code "└┴Mê┬├Mê─┼Mç" [byte-compile-constp (macro . #[(form) "└┴\nD├─\nD┼ED╞╟\nDDC╚\n╔ECFç" [cond consp form eq car 'quote not symbolp memq '(nil t)] 6]) byte-compile-close-variables (macro . #[(&rest body) "└┴\nBBç" [let ((byte-compile-macro-environment (copy-alist byte-compile-initial-macro-environment)) (byte-compile-function-environment nil) (byte-compile-bound-variables nil) (byte-compile-free-references nil) (byte-compile-free-assignments nil) (byte-compile-verbose byte-compile-verbose) (byte-optimize byte-optimize) (byte-compile-generate-emacs19-bytecodes byte-compile-generate-emacs19-bytecodes) (byte-compile-warnings (if (eq byte-compile-warnings t) byte-compile-warning-types byte-compile-warnings))) body] 3]) displaying-byte-compile-warnings (macro . #[(&rest body) "└┴┬├B┼EEç" [let ((byte-compile-warnings-point-max (if (boundp 'byte-compile-warnings-point-max) byte-compile-warnings-point-max (save-excursion (set-buffer (get-buffer-create "*Compile-Log*")) (point-max))))) unwind-protect progn body (save-excursion (set-buffer "*Compile-Log*") (if (= byte-compile-warnings-point-max (point-max)) nil (select-window (prog1 (selected-window) (select-window (display-buffer (current-buffer))) (goto-char byte-compile-warnings-point-max) (recenter 1)))))] 5])] 2)
(fset 'byte-recompile-directory #[(directory &optional arg) "¼ê┴ ê┬├ !ê─!C╞ë╟    \n╠═!½ä¬êè╬╧!qêd)╨Äâ▐@¼à╤╥\"ê╙!╟ëëâ╘─@\"@╫¥¼É╪!½èCñ¬▌┘\"½╒█!¼╧▄!ë½╞▌!½ê▐\"¬æ½┤╞=¼ëαßΓQ!½Ñ½è#¼å╤Σ\"êσ!ê\nT\n=¼ê    T    AëäO+Aëä4*╤µ\nëτU½âΦ¬üΘ    τV½çΩδ    \"¬üΦ$,ç" [noninteractive save-some-buffers set-buffer-modified-p buffer-modified-p expand-file-name directory 0 nil last-dir dir-count file-count directories boundp byte-compile-warnings-point-max get-buffer-create "*Compile-Log*" ((byte-code "è└qê    dU¼Æ┬├ ┬─p!!ê    bê┼╞!ê!ê)┬ç" ["*Compile-Log*" byte-compile-warnings-point-max select-window selected-window display-buffer recenter 1] 5)) message "Checking %s..." directory-files dest source files ("." ".." "RCS" "CVS") file-directory-p string-match emacs-lisp-file-regexp auto-save-file-name-p byte-compile-dest-file file-exists-p file-newer-than-file-p arg y-or-n-p "Compile " "? " byte-compile-verbose "Compiling %s..." byte-compile-file "Done (Total of %d file%s compiled%s)" 1 "" "s" format " in %d directories"] 8 "\
Recompile every `.el' file in DIRECTORY that needs recompilation.
This is if a `.elc' file exists but is older than the `.el' file.

If the `.elc' file does not exist, normally the `.el' file is *not* compiled.
But a prefix argument (optional second arg) means ask user,
for each such `.el' file, whether to compile it.  Prefix argument 0 means
don't ask and compile the file anyway." "DByte recompile directory: \nP"])
(fset 'byte-compile-file #[(filename &optional load) "└    !\n¼í├└    !!ë½ù┼!½Æ╞╟╚╔!\"!½êèqê╩ ê))½à╠═    \"ê╬    !╧è╥╙!qê╘ ê╒    !ê    ╫ ê)╪p┘p!qê!êdbê┌cê█▌    !¼à╧▀αÅêß!½É╧Γ#$σΓd#ê*¬ÆµτΦΘ!½âΩ¬üδE\"ê¼à╧∞φÅê)╪p!ê).½ö.█=¼ê╞╟∩    \"!½åè≡    !ê)1½à±!ê*█ç" [expand-file-name filename noninteractive get-file-buffer b buffer-modified-p y-or-n-p format "save buffer %s first? " buffer-name save-buffer byte-compile-verbose message "Compiling %s..." file-name-nondirectory nil target-file byte-compile-current-file get-buffer-create " *Compiler Input*" erase-buffer insert-file-contents buffer-file-name set-auto-mode kill-buffer byte-compile-from-buffer "\n" t vms-stmlf-recfm byte-compile-dest-file byte-compile-overwrite-file (delete-file target-file) ((error)) file-writable-p 1 file-type kanji-flag write-region signal file-error "Opening output file" file-exists-p "cannot overwrite file" "directory not writable or nonexistent" (byte-code "└    ┬!\"ç" [set-file-modes target-file file-modes filename] 4) ((error)) byte-compile-generate-call-tree "Report call tree for %s? " byte-compile-report-call-tree load] 6 "\
Compile a file of Lisp code named FILENAME into a file of byte code.
The output file's name is made by appending `c' to the end of FILENAME.
With prefix arg (noninteractively: 2nd arg), load the file after compiling." (byte-code "┴ëë½æ┼╞ ₧A╟=½ê╚!╔!╩╦!½ä¼å═Ö½Å╬½â╨¬ü╤\n┴$¬Ä╬½â╨¬ü╤\n┴ë%+Dç" [buffer-file-name nil file-dir file-name file major-mode buffer-local-variables emacs-lisp-mode file-name-nondirectory file-name-directory boundp epoch::version emacs-version "19" read-file-name current-prefix-arg "Byte compile and load file: " "Byte compile file: "] 7)])
(fset 'byte-compile-and-load-file #[(&optional filename) "½à┴┬\"ç├┼┴!)ç" [filename byte-compile-file t (4) current-prefix-arg call-interactively] 3 "\
Compile a file of Lisp code named FILENAME into a file of byte code,
and then load it.  The output file's name is made by appending \"c\" to
the end of FILENAME." nil])
(fset 'byte-compile-buffer #[(&optional buffer) "½à┴!¬üp┬├─!\"ê┼!«å╞─!╟Q    ╩╦\"ê*┬╠─!\"ê╦ç" [buffer get-buffer message "Compiling %s..." buffer-name buffer-file-name "#<buffer " ">" filename byte-compile-current-file byte-compile-from-buffer t "Compiling %s...done"] 4 "\
Byte-compile and evaluate contents of BUFFER (default: the current buffer)." "bByte compile buffer: "])
(fset 'elisp-compile-defun #[(&optional arg) "è└ ê┴ ê┬─╞╟╚p!!!    \n½Ä╦╠!ê═    p\"ê╬c¬ç╦╧╨    !\",ç" [end-of-defun beginning-of-defun nil byte-compile-current-file nothing byte-compile-last-warned-form eval byte-compile-sexp read value arg message "Compiling from buffer... done." prin1 "\n" "%s" prin1-to-string] 4 "\
Compile and evaluate the current top-level form.
Print the result in the minibuffer.
With argument, insert value in current buffer after the form." "P"])
(byte-code "└┴Mê┬├Mê─┼Mê╞╟Mê╚╔Mê╩╦Mê╠═Mê╬╧╨╤#ê╤╥Mê╬╙╨╘#ê╘╒Mê╬╓╨╫#ê╬╪╨╫#ê╫┘Mê╬┌╨█#ê█▄Mê╬▌╨▐#ê╬▀╨▐#ê╬α╨▐#ê▐ßMê╬Γ╨π#êπΣMê╬σ╨µ#êµτMê╬Φ╨Θ#êΘΩMêδ∞Mç" [byte-compile-from-buffer #[(inbuffer &optional eval) "└┬└ëëë├ëë└    \n═!└ëëë╙=½ä¬éè┌█!q▄ ê└)▌▐!½ä¬êè┌▀!qêd)αÄè!qêΓbêπ└wêΣσ!½àΓyê¬rm¼ëµτ!!!ê¬fΦ ê)¼âΩ êδ ê└,+è    qêebê.)¼â    ¬Æ└φεŽçΘ/!ê¬s≡    !ê└)ç" [nil outbuffer "%20e" 0 byte-compile-output byte-compile-maxdepth byte-compile-depth byte-compile-tag-number byte-compile-variables byte-compile-constants print-length case-fold-search float-output-format copy-alist byte-compile-initial-macro-environment byte-compile-verbose byte-optimize byte-compile-generate-emacs19-bytecodes byte-compile-warnings t byte-compile-warning-types byte-compile-free-assignments byte-compile-free-references byte-compile-bound-variables byte-compile-function-environment byte-compile-macro-environment get-buffer-create " *Compiler Output*" erase-buffer boundp byte-compile-warnings-point-max "*Compile-Log*" ((byte-code "è└qê    dU¼Æ┬├ ┬─p!!ê    bê┼╞!ê!ê)┬ç" ["*Compile-Log*" byte-compile-warnings-point-max select-window selected-window display-buffer recenter 1] 5)) inbuffer 1 "     \n" looking-at ";" byte-compile-file-form read byte-compile-flush-pending eval byte-compile-insert-header byte-compile-warn-about-unresolved-functions byte-compile-unresolved-functions (byte-code "└    !├ç" [read outbuffer form t] 2) ((end-of-file)) form kill-buffer] 10] byte-compile-insert-header #[nil "èqê┴bê┬├ ─┼ ╞╟ ╚    ╩▒    ê╦═▒ê╬╨╥=½â╙¬æ╘=½â╒¬ê½â╓¬ü╫½â┘¬ü═▒ê¡ç█▄▌▐▀▒)ç" [outbuffer 1 ";;; compiled by " user-login-name "@" system-name " on " current-time-string "\n;;; from file " filename "\n" ";;; emacs version " emacs-version ".\n" ";;; bytecomp version " byte-compile-version "\n;;; " byte-optimize source "source-level optimization only" byte "byte-level optimization only" "optimization is on" "optimization is off" byte-compile-emacs18-compatibility "; compiled with emacs18 compatibility.\n" byte-compile-generate-emacs19-bytecodes ";;; this file uses opcodes which do not exist in Emacs18.\n" "\n(if (and (boundp 'emacs-version)\n" "     (or (and (boundp 'epoch::version) epoch::version)\n" "         (string-lessp emacs-version \"19\")))\n" "    (error \"This file was compiled for Emacs19.\"))\n"] 9] byte-compile-output-file-form #[(form) "ó┴>½ï┬8;½à├─\"ç┼ë╞    ╩╦\"ê═\"ê+╞ç" [form (defun defmacro defvar defconst autoload) 3 byte-compile-output-docform ("\n(" 3 ")") t nil print-gensym print-readably print-escape-newlines princ "\n" outbuffer prin1] 3] byte-compile-output-docform #[(info form) "pqê    @cê    A@\n¢├ë─╔\n@\"ê\nA뽺╩cê\n=½û─`T╔\n@\"êbê╦cêdbê)¬[╔\n@\"ê¬S,╠    8cêqê─ç" [outbuffer info form t nil print-gensym print-readably print-escape-newlines docl prin1 " " "\\\n" 2] 5] byte-compile-keep-pending #[(form &optional handler) "┴>½à┬─\"½á─ó╟=½ë╚    ¢½â╩ ê!ê½â╦ ê)¬à╠─\"ê═ç" [byte-optimize (t source) byte-optimize-form form t handler for-effect fset 300 byte-compile-output byte-compile-flush-pending byte-compile-discard byte-compile-form nil] 3] byte-compile-flush-pending #[nil "¡¬┴┬├\"ëó┼=½ê╞╟A\"ê¬ç½ä╟!ê╚    ╚\n╦╦╚ë)ç" [byte-compile-output byte-compile-out-toplevel t file form progn mapcar byte-compile-output-file-form nil byte-compile-constants byte-compile-variables 0 byte-compile-depth byte-compile-maxdepth] 4] byte-compile-file-form #[(form) "└ë:¼à─!¬»@9½ù@┼Në½Å    !ë¡¢╞ ê╟!¬ô╚    \"ë=½à─!¬â╩!*ç" [nil handler byte-compile-current-form form byte-compile-keep-pending byte-hunk-handler byte-compile-flush-pending byte-compile-output-file-form macroexpand byte-compile-macro-environment byte-compile-file-form] 4] put defsubst byte-hunk-handler byte-compile-file-form-defsubst #[(form) "A@    ₧½ïA@├─A@\"ê┼╞\"!ê╚ç" [form byte-compile-unresolved-functions byte-compile-current-form byte-compile-warn "defsubst %s was used before it was defined" byte-compile-file-form macroexpand byte-compile-macro-environment nil] 4] autoload byte-compile-file-form-autoload #[(form) "Aë½ù@:½ç@@┴=¬ë@9½i@┬>¼c)¼ï├─8!½ä├!ê┼8;½éç╞╟\"ç" [form quote (nil t) eval 5 3 byte-compile-keep-pending byte-compile-normal-call] 3] defvar byte-compile-file-form-defvar defconst #[(form) "└    8¼ä┬    !ç├>½å    A@B╞    8:½É╟    !ëAA╚╞    8╔╩#áê    ç" [3 form byte-compile-keep-pending free-vars byte-compile-warnings byte-compile-bound-variables 2 copy-sequence byte-compile-top-level nil file] 6] require byte-compile-file-form-eval-boundary #[(form) "└    !ê┬    ├\"ç" [eval form byte-compile-keep-pending byte-compile-normal-call] 3] progn byte-compile-file-form-progn prog1 prog2 #[(form) "└┴\nA\"ê├ç" [mapcar byte-compile-file-form form nil] 3] eval byte-compile-file-form-eval #[(form) "A@ó┴=½åA@A@ç┬!ç" [form quote byte-compile-keep-pending] 2] defun byte-compile-file-form-defun #[(form) "└    ┬\"ç" [byte-compile-file-form-defmumble form nil] 3] defmacro byte-compile-file-form-defmacro #[(form) "└    ┬\"ç" [byte-compile-file-form-defmumble form t] 3] byte-compile-file-form-defmumble #[(form macrop) "A@\n½â├¬ü─\n½â─¬ü├    J₧    J₧╔\n╔½Å    ₧¼ë    ╔ëEB    ╧>½à╤\n\"ê½î╙╘«ü╓A@#ê½£╧>½ÅA@₧¼ç╪┘A@\"ê╔íê¬╪½₧╧>½╬A@₧¼╞╪┌\n½â█¬ü▄A@#ê¬╢▌    !½▒    Kó\n½â▐¬ü▀=½ñ╧>½ò╪α\n½â▄¬ü█A@\n½â█¬ü▄$ê    ╔BJBLêߢë\"@;½£\"úó9½ò\"úó½Å\"úúó;½ç╪πA@\"ê)Σ▐AAB!%µ%!'½ê%íê¬è    %BJBLêß8;½£'óΦ=½ò'A@ó▐=½î@    'A@ABB¬∙ß8;¼¼ΘΩΦ    D\n¼ä'¬¢'óδ=½ç∞φ'E¬ìΦ\n½å▀%B¬é%DEε\"¬╟∩ ê≡±2\"ê≤    2\"ê⌠':¼ë\n½â⌡¬₧÷¬¢'@Φ=½ì%'\n½â≈¬è°¬ç\n½â∙¬ü·√'╔\"\"ê≡ⁿ2\"ê╔.    ç" [form name macrop byte-compile-macro-environment byte-compile-function-environment this-kind that-kind this-one that-one nil byte-compile-free-references byte-compile-free-assignments byte-compile-generate-call-tree byte-compile-call-tree byte-compile-current-form redefine byte-compile-warnings byte-compile-arglist-warn byte-compile-verbose message "Compiling %s (%s)..." filename "" byte-compile-initial-macro-environment byte-compile-warn "%s defined multiple times, as both function and macro" "%s %s defined multiple times in this file" "macro" "function" fboundp lambda macro "%s %s being redefined as a %s" 3 body "Probable `\"' without `\\' in doc string of %s" byte-compile-lambda new-one byte-compile-byte-code-maker code quote byte-compile-keep-pending fset make-byte-code cons 'macro byte-compile-two-args byte-compile-flush-pending princ "\n(fset '" outbuffer prin1 byte-compile-output-docform (" '(macro . #[" 4 "])") (" #[" 4 "]") (" '(macro " 2 ")") (" '(" 2 ")") (" (cons 'macro (" 5 "))") (" (" 5 ")") append ")"] 7]] 4)
(fset 'byte-compile #[(form) "└┴!½â    ¬êè┬├!qêd)─Ä┼!╟ëëë    \n╠=½ä¬é\n    9½ï╘!¡çK¬éëó╓=ë½àAó╫=¡á½ê╓╪!B¬ä╪!9½çM¬é.ç" [boundp byte-compile-warnings-point-max get-buffer-create "*Compile-Log*" ((byte-code "è└qê    dU¼Æ┬├ ┬─p!!ê    bê┼╞!ê!ê)┬ç" ["*Compile-Log*" byte-compile-warnings-point-max select-window selected-window display-buffer recenter 1] 5)) copy-alist byte-compile-initial-macro-environment nil byte-compile-verbose byte-optimize byte-compile-generate-emacs19-bytecodes byte-compile-warnings t byte-compile-warning-types byte-compile-free-assignments byte-compile-free-references byte-compile-bound-variables byte-compile-function-environment byte-compile-macro-environment form fboundp fun macro lambda byte-compile-lambda] 11 "\
If FORM is a symbol, byte-compile its function definition.
If FORM is a lambda or a macro, byte-compile it as a function."])
(fset 'byte-compile-sexp #[(sexp) "└┴!½â    ¬êè┬├!qêd)─Ä┼!╟ëëë    \n╠=½ä¬é\n    ╙!.ç" [boundp byte-compile-warnings-point-max get-buffer-create "*Compile-Log*" ((byte-code "è└qê    dU¼Æ┬├ ┬─p!!ê    bê┼╞!ê!ê)┬ç" ["*Compile-Log*" byte-compile-warnings-point-max select-window selected-window display-buffer recenter 1] 5)) copy-alist byte-compile-initial-macro-environment nil byte-compile-verbose byte-optimize byte-compile-generate-emacs19-bytecodes byte-compile-warnings t byte-compile-warning-types byte-compile-free-assignments byte-compile-free-references byte-compile-bound-variables byte-compile-function-environment byte-compile-macro-environment byte-compile-top-level sexp] 10 "\
Compile and return SEXP."])
(byte-code "└┴Mê┬├Mê─┼Mê╞╟Mê╚╔Mê╩╦Mê╠═Mê╬╧Mê╨╤Mê╥╙Mê╘╒Mê╓╫Mê╪┘Mê┌█Mê▄▌Mê▐▀MêαßΓπ#êαΣΓσ#êαµΓσ#êατΓσ#êαΦΓσ#êαΘΓσ#êαΩΓδ#êα∞Γδ#êαφΓδ#êαεΓδ#êα∩Γ≡#êα±≥≤#êα±⌠⌡#êα⌡Γ±#êα÷≥≤#êα÷⌠≈#êα≈Γ÷#êα°≥≤#êα°⌠∙#êα∙Γ°#êα·≥≤#êα·⌠⌡#êα⌡Γ·#êα√≥≤#êα√⌠≈#êα≈Γ√#êαⁿ≥≤#êαⁿ⌠∙#êα∙Γⁿ#êα²≥≤#êα²⌠■#êα■Γ²#êα ≥≤#êα ⌠ü@#êαü@Γ #êαüA≥≤#êαüA⌠üB#êαüBΓüA#êαüC≥≤#êαüC⌠üD#êαüDΓüC#êαüE≥≤#êαüE⌠üF#êαüFΓüE#êαüG≥≤#êαüG⌠üH#êαüHΓüG#êαüI≥≤#êαüI⌠üJ#êαüJΓüI#êαüK≥≤#êαüK⌠üL#êαüLΓüK#êαüM≥≤#êαüM⌠üN#êαüNΓüM#êαüOüPüQ#êαüR≥≤#êαüR⌠üO#êαüOΓüR#êαüSüPüQ#êαüT≥üU#êαüT⌠üS#êαüSΓüT#êαüVüPüQ#êαüW≥üU#êαüW⌠üV#êαüVΓüW#êαüXüPüQ#êαüY≥üU#êαüY⌠üX#êαüXΓüY#êαüZ≥ü[#êαüZ⌠ü\\#êαü\\ΓüZ#êαü]≥ü[#êαü]⌠ü^#êαü^Γü]#êαü_≥ü[#êαü_⌠ü`#êαü`Γü_#êαüa≥ü[#êαüa⌠üb#êαübΓüa#êαüc≥ü[#êαüc⌠üd#êαüdΓüc#êαüe≥ü[#êαüe⌠üd#êαüdΓüe#êαüf≥ü[#êαüf⌠üg#êαügΓüf#êαüh≥ü[#êαüh⌠üi#êαüiΓüh#êαüj≥ü[#êαüj⌠ük#êαükΓüj#êαül≥ü[#êαül⌠üm#êαümΓül#êαün≥ü[#êαün⌠üo#êαüoΓün#êαüp≥ü[#êαüp⌠üq#êαüqΓüp#êαür≥ü[#êαür⌠üs#êαüsΓür#êαüt≥ü[#êαüt⌠üu#êαüuΓüt#êαüv≥ü[#êαüv⌠üw#êαüwΓüv#êαüx≥ü[#êαüx⌠üy#êαüyΓüx#êαüzüPüQ#êαü{≥ü[#êαü{⌠üz#êαüzΓü{#êαü|üPüQ#êαü}≥ü[#êαü}⌠ü|#êαü|Γü}#êαü~üPüQ#êαü≥ü[#êαü⌠ü~#êαü~Γü#êαüÇüPüQ#êαüü≥ü[#êαüü⌠üÇ#êαüÇΓüü#êαüéüPüQ#êαüâ≥ü[#êαüâ⌠üé#êαüéΓüâ#êαüäüPüQ#êαüà≥ü[#êαüà⌠üä#êαüäΓüà#êαüåüPüQ#êαüç≥ü[#êαüç⌠üå#êαüåΓüç#êαüêüPüQ#êαüë≥üè#êαüë⌠üê#êαüêΓüë#êαüïüPüQ#êαüî≥üè#êαüî⌠üï#êαüïΓüî#êαüì≥üÄ#êαüì⌠üÅ#êαüÅΓüì#êαüÉ≥üÄ#êαüÉ⌠üÅ#êαüÅΓüÉ#êαüæ≥üÄ#êαüæ⌠üÆ#êαüÆΓüæ#êαüô≥üÄ#êαüô⌠üö#êαüöΓüô#êαüò≥üÄ#êαüò⌠üû#êαüûΓüò#êαüù≥üÄ#êαüù⌠üÿ#êαüÿΓüù#êαüÖ≥üÄ#êαüÖ⌠üÜ#êαüÜΓüÖ#êαü¢≥üÄ#êαü¢⌠ü£#êαü£Γü¢#êαü¥≥üÄ#êαü¥⌠ü₧#êαü₧Γü¥#êαüƒ≥üÄ#êαüƒ⌠üá#êαüáΓüƒ#êαüí≥üÄ#êαüí⌠üó#êαüóΓüí#êαüú≥üÄ#êαüú⌠üñ#êαüñΓüú#êαüÑ≥üÄ#êαüÑ⌠üª#êαüªΓüÑ#êαüº≥ü¿#êαüº⌠ü⌐#êαü⌐Γüº#êαü¬üPüQ#êαü½≥ü¿#êαü½⌠ü¬#êαü¬Γü½#êαü¬üPüQ#êαü¼≥ü¿#êαü¼⌠ü¬#êαü¬Γü¼#êαü¡üPüQ#êαü«≥ü[#êαü«⌠ü¡#êαü¡Γü«#êαü»üPüQ#êαü░≥ü[#êαü░⌠ü»#êαü»Γü░#êαü▒üPüQ#êαü▓≥ü[#êαü▓⌠ü▒#êαü▒Γü▓#êαü│üPüQ#êαü┤≥ü[#êαü┤⌠ü│#êαü│Γü┤#êαü╡üPüQ#êαü╢≥üÄ#êαü╢⌠ü╡#êαü╡Γü╢#êαü╖üPüQ#êαü╕≥üÄ#êαü╕⌠ü╖#êαü╖Γü╕#êαü╡üPüQ#êαü╣≥üÄ#êαü╣⌠ü╡#êαü╡Γü╣#êαü╖üPüQ#êαü║≥üÄ#êαü║⌠ü╖#êαü╖Γü║#êαü╗üPüQ#êαü╝≥üÄ#êαü╝⌠ü╗#êαü╗Γü╝#êαü╜üPüQ#êαü╛≥üÄ#êαü╛⌠ü╜#êαü╜Γü╛#êαü┐üPüQ#êαü└≥üÄ#êαü└⌠ü┐#êαü┐Γü└#êαü┴üPüQ#êαü┬≥üÄ#êαü┬⌠ü┴#êαü┴Γü┬#êαü├üPüQ#êαü─≥üÄ#êαü─⌠ü├#êαü├Γü─#êαü┼üPüQ#êαü╞≥üÄ#êαü╞⌠ü┼#êαü┼Γü╞#êαü╟üPüQ#êαü╚≥üÄ#êαü╚⌠ü╟#êαü╟Γü╚#êαü┼üPüQ#êαü╔≥üÄ#êαü╔⌠ü┼#êαü┼Γü╔#êαü╟üPüQ#êαü╩≥üÄ#êαü╩⌠ü╟#êαü╟Γü╩#êαü╦üPüQ#êαü╠≥üÄ#êαü╠⌠ü╦#êαü╦Γü╠#êαü═üPüQ#êαü╬≥üÄ#êαü╬⌠ü═#êαü═Γü╬#êαü╧üPüQ#êαü╨≥üÄ#êαü╨⌠ü╧#êαü╧Γü╨#êαü╤üPüQ#êαü╥≥üÄ#êαü╥⌠ü╤#êαü╤Γü╥#êαü╤üPüQ#êαü╙≥üÄ#êαü╙⌠ü╤#êαü╤Γü╙#êαü╘≥ü╒#êαü╘⌠ü╓#êαü╓Γü╘#êαü╫≥ü╪#êαü╫⌠ü┘#êαü┘Γü╫#êαü┌≥ü╪#êαü┌⌠ü█#êαü█Γü┌#êαü▄≥ü╪#êαü▄⌠ü▌#êαü▌Γü▄#êαü▐üPüQ#êαü▀≥ü╪#êαü▀⌠ü▐#êαü▐Γü▀#êαüα≥üß#ç" [byte-compile-byte-code-maker #[(fun) "½å┴┬!Dç:¼éç─╞Aú₧ë½╙>A¼═╟AA₧╚┴A@DA@╔8╩8»╔8;½å╔8C¬å¡é─Cñ¡ÜA@½çA@;½åA@¬å┴A@DCñ)¬â┴D)ç" [byte-compile-emacs18-compatibility quote byte-compile-byte-code-unmake fun nil tmp byte-code interactive make-byte-code 2 3] 6] byte-compile-byte-code-unmake #[(function) ":½éç┴┬\"├@D─8¡ä─8Cñ┼¢¡ï╞┼8¡â┼¢BCñ╟A@╚8╔8FCñç" [function append nil lambda 4 5 interactive byte-code 2 3] 6] byte-compile-lambda #[(fun) "└    ó=¼ç┬├─    !\"ê    A@╞>¡ë╚╔╚╩╦!\"\"ñ    AAë@;¡ê@A╧₧뽬@=½àAA½ÿAA½ê╤╥─!\"ê╧╙A@!D╙╘B╒└#ëó╫=½ñ½á┘┌█CA¼ä¡âC¡àA@C$\"¬╝¡âCó╘=½àA¬ç¡âCñ└D¼å@;½Å«å¡é╒CB¬éñ.ç" [lambda fun error "not a lambda -- %s" prin1-to-string arglist free-vars byte-compile-warnings delq &rest &optional copy-sequence byte-compile-bound-variables body doc interactive int byte-compile-warn "malformed interactive spec: %s" byte-compile-top-level progn nil compiled byte-code byte-compile-generate-emacs19-bytecodes apply make-byte-code append] 8] byte-compile-constants-vector #[nil "└\nƒƒ╞╞╔\n╞¼â½├\n@½»    =¼⌐@@₧ë½ë@Aíê¬Å@    Tëíê@BAë¼Q\nA\në¬8╠═╬╧\"ƒ\".ç" [-1 i byte-compile-variables rest byte-compile-constants other nil ret tmp (5 63 255 65535) limits limit apply vector mapcar car] 6] byte-compile-top-level #[(form &optional for-effect output-type) "└ë┴ëë└╔>½ê╩\"ó═=½ÅAA¼ëA@ë¬ló╬=½í╧>¼¢A@;½ö╨╤8!½î╥╙8!½ä¬ì╘\"ê╒\".ç" [nil 0 byte-compile-output byte-compile-maxdepth byte-compile-depth byte-compile-tag-number byte-compile-variables byte-compile-constants byte-optimize (t source) byte-optimize-form form for-effect progn byte-code (t byte) vectorp 2 natnump 3 byte-compile-form byte-compile-out-toplevel output-type] 7] byte-compile-out-toplevel #[(&optional for-effect output-type) "½╕    @@┬=½à    A¬¼├─₧?¡ú╞!ë½û@@9¼Å@@º¼êAë¼j@@)!ê╚╔╩\"ê    ƒ╠>½à═    \"─╧=?─ë╙=½â╘¬ü╒    ¢äP
╓    ₧äP
╔    ₧ëâP
╞    !>Aƒë@@╫>½║@A@@@╪=½í:¼ï9½ù┘>¼æâ@
┌DB묰Bë¬ε½⌡█¢¼∩@@▄Në½ΣA½Ü▌>½┘AA½╙A@@┬=½╩A─ƒ▐=½ô@ó┌=½ï@A@AB¬àBC╙=¼ì▀─αß@A\"\"?½ëAëéç¼î@:½û╧=½ÉΓ #Σσ    !#&F)¬ÅA½çτƒB¬â@,ç" [for-effect byte-compile-output byte-discard byte-compile-push-constant nil byte-compile-constants reverse tmp byte-compile-out byte-return 0 byte-optimize (t byte) byte-optimize-lapcode output-type lambda body maycall rest file 50 8 TAG (byte-varref byte-constant) byte-constant (nil t) quote 3 byte-opcode-invert (file progn t) funcall delq mapcar consp byte-compile-constants-vector byte-compile-vector byte-code byte-compile-lapcode byte-compile-maxdepth progn] 6] byte-compile-top-level-body #[(body &optional for-effect) "└┴\nB─#ëó┴=½â\nAç\n¡é\nCç" [byte-compile-top-level progn body for-effect t] 5] byte-compile-form #[(form &optional for-effect) "└    \n\"ë:¼í    9½à    ├>½å─    !ê¬≈½ê½ä╟¬∞╚╔    \"ê¬σ    @9½╜    @ë\n╦N\n═>½å╬╧\n\"ê½ô¼ê\n╤N╥N¼ç    !ê¬Ä╙>½ä╒    !ê╓    !ê*¬ú╫    @!¼ç    @ó╪=½Æ    ┘    !ë=¼ë┌    \"ê╟¬ä╓    !ê¡é█ ç" [macroexpand form byte-compile-macro-environment (nil t) byte-compile-constant for-effect byte-compile-delete-errors nil byte-compile-variable-ref byte-varref fn byte-compile handler (t nil) byte-compile-warn "%s called as a function" byte-compile-generate-emacs19-bytecodes byte-opcode emacs19-opcode callargs byte-compile-warnings byte-compile-callargs-warn byte-compile-normal-call compiled-function-p lambda byte-compile-unfold-lambda byte-compile-form byte-compile-discard] 4] byte-compile-normal-call #[(form) "½ä┴\n!ê├\n@!ê─┼\nA\"ê╞╟\nAG\"ç" [byte-compile-generate-call-tree byte-compile-annotate-call-tree form byte-compile-push-constant mapcar byte-compile-form byte-compile-out byte-call] 3] byte-compile-variable-ref #[(base-op var) "9½à┴>½Ö┬─=½â┼¬ü╞9½â╟¬ü╚╔!#ê¬σ╩N½Ö╩N┬╠;½ä¬à═╬\"#ê)╧>½┴─=½êB¬┤╥!¼»>¼⌐╙=½ô>¼₧┬╒\"êB¬æ>¼ï┬╫\"êB₧ë¼èCëB┌\")ç" [var (nil t) byte-compile-warn base-op byte-varbind "Attempt to let-bind %s %s" "Variable reference to %s %s" "constant" "nonvariable" prin1-to-string byte-obsolete-variable ob "%s is an obsolete variable; %s" format "use %s instead." free-vars byte-compile-warnings byte-compile-bound-variables boundp byte-varset byte-compile-free-assignments "assignment to free variable %s" byte-compile-free-references "reference to free variable %s" byte-compile-variables tmp byte-compile-out] 7] byte-compile-get-constant (macro . #[(const) "└┴┬D─┼E╞┼EF╟╚┼╔╩D┼EEDEç" [or if stringp const assoc byte-compile-constants assq car setq cons list] 8]) byte-compile-constant #[(const) "½ä┴ëç┬├;½ç┼\"¬ä₧«ëCBë@\"ç" [for-effect nil byte-compile-out byte-constant const assoc byte-compile-constants] 5] byte-compile-push-constant #[(const) "└\n    ½à└묥├─\n;½ç┼\n\"¬ä\n₧«ë\nCBë@\"*ç" [nil for-effect const byte-compile-out byte-constant assoc byte-compile-constants] 5] byte-defop-compiler (macro . #[(function &optional compile-handler) "└\n9½è├─┼\n!P!¬ç\nA@\n@╞╟\nD╚╟    ╩₧A«ï    «ç├╦┼\n!P!DF    ½ÿ═╞╟\nD╬╟    DF╞╟    D╧╟\nDFF¬é*ç" [nil opcode function intern "byte-" symbol-name put quote 'byte-compile compile-handler ((0 . byte-compile-no-args) (1 . byte-compile-one-arg) (2 . byte-compile-two-args) (3 . byte-compile-three-args) (0-1 . byte-compile-zero-or-one-arg) (1-2 . byte-compile-one-or-two-args) (2-3 . byte-compile-two-or-three-args)) "byte-compile-" fnform progn 'byte-opcode 'byte-opcode-invert] 8]) byte-defop-compiler19 (macro . #[(function &optional compile-handler) "└┴┬ú@«ï─┼╞ó«ü!P!D╟╚F╔\nEEç" [progn put quote function intern "byte-" symbol-name 'emacs19-opcode t byte-defop-compiler compile-handler] 7]) byte-defop-compiler-1 (macro . #[(function &optional compile-handler) "└    ┬DEç" [byte-defop-compiler function nil compile-handler] 3]) put byte-call byte-opcode-invert funcall byte-list1 list byte-list2 byte-list3 byte-list4 byte-listN byte-concat2 concat byte-concat3 byte-concat4 byte-concatN byte-insertN insert dot byte-compile byte-compile-no-args byte-opcode byte-point dot-max byte-point-max dot-min byte-point-min point point-max point-min following-char byte-following-char preceding-char byte-preceding-char current-column byte-current-column eolp byte-eolp eobp byte-eobp bolp byte-bolp bobp byte-bobp current-buffer byte-current-buffer interactive-p byte-interactive-p byte-widen emacs19-opcode t widen byte-end-of-line end-of-line byte-compile-zero-or-one-arg byte-forward-char forward-char byte-forward-line forward-line symbolp byte-compile-one-arg byte-symbolp consp byte-consp stringp byte-stringp listp byte-listp not byte-not null car byte-car cdr byte-cdr length byte-length symbol-value byte-symbol-value symbol-function byte-symbol-function 1+ byte-add1 1- byte-sub1 goto-char byte-goto-char char-after byte-char-after set-buffer byte-set-buffer byte-forward-word forward-word byte-char-syntax char-syntax byte-nreverse nreverse byte-car-safe car-safe byte-cdr-safe cdr-safe byte-numberp numberp byte-integerp integerp byte-skip-chars-forward skip-chars-forward byte-compile-one-or-two-args byte-skip-chars-backward skip-chars-backward eql byte-compile-two-args byte-eq eq memq byte-memq cons byte-cons aref byte-aref set byte-set = byte-eqlsign < byte-lss > byte-gtr <= byte-leq >= byte-geq get byte-get nth byte-nth substring byte-compile-two-or-three-args byte-substring byte-set-marker move-marker set-marker byte-match-beginning match-beginning byte-match-end match-end byte-upcase upcase byte-downcase downcase byte-string= string= byte-string< string< string-equal string-lessp byte-equal equal byte-nthcdr nthcdr byte-elt elt byte-member member byte-assq assq byte-setcar rplaca byte-setcdr rplacd setcar setcdr byte-buffer-substring buffer-substring byte-delete-region delete-region byte-narrow-to-region narrow-to-region byte-rem mod % aset byte-compile-three-args byte-aset max byte-compile-associative byte-max min byte-min + byte-plus byte-mult * interactive byte-compile-noop] 4)
(byte-code "└┴Mê┬├Mê─┼Mê╞╟Mê╚╔Mê╩╦Mê╠═Mê╬╧Mê╨╤Mê╥╙Mê╘╒Mê╓╫╪┘#ê╓╫┌█#ê╓█▄╫#ê╓▌╪▐#ê╓▌┌▀#ê╓▀▄▌#ê╓α╪ß#ê╓α┌Γ#ê╓Γ▄α#ê╓π╪Σ#ê╓π┌σ#ê╓σ▄π#ê╓µ╪Σ#ê╓µ┌σ#ê╓σ▄µ#ê╓τ╪Φ#ê╓τ┌Θ#ê╓Θ▄τ#ê╓Ω╪δ#ê╓∞╪φ#ê╓ε∩≡#ê╓±╪≥#ê╓±┌ε#ê╓ε▄±#ê╓≤∩≡#ê╓⌠╪⌡#ê╓⌠┌≤#ê╓≤▄⌠#ê╓÷╪≈#ê┘°Mê▐∙Mêφ·Mê≥√Mê⌡ⁿMêß²Mê■ Mêδü@MêΣüAMêΦüBMê≈üCMê╓üD╪üE#ê╓üF╪üG#ê╓üH╪üI#ê╓üJ╪üK#êüEüLMêüGüMMêüIüNMêüKüOMç" [byte-compile-subr-wrong-args #[(form n) "└┴\n@\nAG\nAG├U½â─¬ü┼%ê╟\n!ç" [byte-compile-warn "%s called with %d arg%s, but requires %s" form 1 "" "s" n byte-compile-normal-call] 6] byte-compile-no-args #[(form) "G┴U¼à┬├\"ç─@┼N╞\"ç" [form 1 byte-compile-subr-wrong-args "none" byte-compile-out byte-opcode 0] 3] byte-compile-one-arg #[(form) "G┴U¼à┬├\"ç─A@!ê┼@╞N╟\"ç" [form 2 byte-compile-subr-wrong-args 1 byte-compile-form byte-compile-out byte-opcode 0] 3] byte-compile-two-args #[(form) "G┴U¼à┬├\"ç─A@!ê─├8!ê┼@╞N╟\"ç" [form 3 byte-compile-subr-wrong-args 2 byte-compile-form byte-compile-out byte-opcode 0] 3] byte-compile-three-args #[(form) "G┴U¼à┬├\"ç─A@!ê─┼8!ê─├8!ê╞@╟N╚\"ç" [form 4 byte-compile-subr-wrong-args 3 byte-compile-form 2 byte-compile-out byte-opcode 0] 3] byte-compile-zero-or-one-arg #[(form) "Gë┬U½ê├─┼\"!¬Ä    ╞U½à├!¬ä╟╚\")ç" [form len 1 byte-compile-one-arg append (nil) 2 byte-compile-subr-wrong-args "0-1"] 5] byte-compile-one-or-two-args #[(form) "Gë┬U½ê├─┼\"!¬Ä    ╞U½à├!¬ä╟╚\")ç" [form len 2 byte-compile-two-args append (nil) 3 byte-compile-subr-wrong-args "1-2"] 5] byte-compile-two-or-three-args #[(form) "Gë┬U½ê├─┼\"!¬Ä    ╞U½à├!¬ä╟╚\")ç" [form len 3 byte-compile-three-args append (nil) 4 byte-compile-subr-wrong-args "2-3"] 5] byte-compile-noop #[(form) "└┴!ç" [byte-compile-constant nil] 2] byte-compile-discard #[nil "└┴┬\"ç" [byte-compile-out byte-discard 0] 3] byte-compile-associative #[(form) "A½£@┴N├─Aë\"êAë¡ç┼\n╞\"ê¬s)ç╟╚!!ç" [form byte-opcode opcode mapcar byte-compile-form byte-compile-out 0 byte-compile-constant eval] 4] put list byte-compile byte-compile-list byte-opcode byte-list byte-opcode-invert concat byte-compile-concat byte-concat fset byte-compile-fset byte-fset indent-to-column byte-compile-indent-to byte-indent-to indent-to insert byte-compile-insert byte-insert function byte-compile-function-form - byte-compile-minus byte-quo emacs19-opcode t / byte-compile-quo byte-nconc nconc byte-compile-nconc beginning-of-line byte-compile-beginning-of-line #[(form) "AGë┬U½à├─!¬¼    ┼W½Å╞╟A\"ê╚╔    SH┬\"¬ÿ    ╩W½É½î╞╟A\"ê╚╠    \"¬â═!)ç" [form count 0 byte-compile-constant nil 5 mapcar byte-compile-form byte-compile-out [byte-list1 byte-list2 byte-list3 byte-list4] 256 byte-compile-generate-emacs19-bytecodes byte-listN byte-compile-normal-call] 4] #[(form) "AG┬    W½ò    ├W½É─┼A\"ê╞╟    ╚ZH╔\"¬ó    ╔U½à┼╩!¬ÿ    ╦W½É½î─┼A\"ê╞═    \"¬â╬!)ç" [form count 1 5 mapcar byte-compile-form byte-compile-out [byte-concat2 byte-concat3 byte-concat4] 2 0 "" 256 byte-compile-generate-emacs19-bytecodes byte-concatN byte-compile-normal-call] 4] #[(form) "Aë¼ä┴┬!ç├@!êA½ÆAë¡É├@!ê─┼┬\"ê¬n─╞┬\"ç" [form byte-compile-constant 0 byte-compile-form byte-compile-out byte-diff byte-negate] 3] #[(form) "Gë┬X½å├─\"¬Ü┼Aë@!êAë¡î┼@!ê╞╟╚\"ê¬n)ç" [form len 2 byte-compile-subr-wrong-args "2 or more" byte-compile-form byte-compile-out byte-quo 0] 4] #[(form) "Gë┬U½à├─!¬ª    ┼U½ç╞A@!¬Ü╞Aë@!êAë¡î╞@!ê╟╚╔\"ê¬n)ç" [form len 1 byte-compile-constant nil 2 byte-compile-form byte-compile-out byte-nconc 0] 4] #[(form) "└    8┬ëó┼=½╣A@ëó╞=½»    A@úó╟=¼ªAAë@;½âA@ó╚=½âA@:½ï@@╔=¼ä╩╦!ê*╠    !ç" [2 form nil body fn quote lambda make-byte-code interactive byte-code byte-compile-warn "A quoted lambda form is the second argument of fset.  This is probably\n     not what you want, as that lambda cannot be compiled.  Consider using\n     the syntax (function (lambda (...) ...)) instead." byte-compile-two-args] 3] byte-compile-funarg #[(form) "└    A@ëó├=½ò\nA@ó─=½ì    @┼\nAB    AABB¬ü    )!ç" [byte-compile-normal-call form fn quote lambda function] 5] #[(form) "└    A@9½à    A@¬æ\n½ë├─    A@!!¬à─    A@!!ç" [byte-compile-constant form byte-compile-emacs18-compatibility byte-compile-byte-code-unmake byte-compile-lambda] 4] #[(form) "Gë┬U½î├A@!ê─┼╞\"¬Ä    ╟U½à╚!¬ä╔╩\")ç" [form len 2 byte-compile-form byte-compile-out byte-indent-to 0 3 byte-compile-normal-call byte-compile-subr-wrong-args "1-2"] 4] #[(form) "A¼ä┴┬!ç½¥G─X½ù┼╞A\"êAA½ç╟╚AG\"ç╟╔╩\"ç╦┼╠AA\">½ä═!çAë¡ô╞@!ê╟╔╩\"êA½l╬ ê¬gç" [form byte-compile-constant nil byte-compile-generate-emacs19-bytecodes 256 mapcar byte-compile-form byte-compile-out byte-insertN byte-insert 0 t consp byte-compile-normal-call byte-compile-discard] 4] #[(form) "A@:½êA@@┴=¬ïA@9½ïA@┬>¼ä├!ç─┼╞A@!«ü╟뿽äS¬è╚╔\"ê╩┴DDD╦\"ê╠═!ç" [form quote (nil t) byte-compile-normal-call byte-compile-form forward-line eval 1 byte-compile-warn "Non-numeric arg to beginning-of-line: %s" 1- t byte-compile-constant nil] 5] setq byte-compile-setq setq-default byte-compile-setq-default quote byte-compile-quote quote-form byte-compile-quote-form #[(form) "Aë½ú    ½Ñ┬    A@!ê¼è    AA¼à─┼╞\"ê╟╚    @\"ê    AAë¬^┬╔\"ê╔ë)ç" [form args byte-compile-form for-effect byte-compile-out byte-dup 0 byte-compile-variable-ref byte-varset nil] 4] #[(form) "└┴┬A@DAABB!ç" [byte-compile-form set-default quote form] 4] #[(form) "└    A@!ç" [byte-compile-constant form] 2] #[(form) "└┴\nA@!!ç" [byte-compile-constant byte-compile-top-level form] 3]] 4)
(byte-code "└┴Mê┬├─┼#ê├╞Mê┬╟─┼#ê╟╚Mê┬╔╩╦#ê┬╠╩╦#ê┬═╩╬#ê┬╧╩╨#ê┬╤╩╥#ê┬╙╩╘#ê┬╒╩╓#ê┬╫╩╪#ê┬┘╩┌#ê┬█╩▄#ê┬▌╩▐#ê┬▀╩▐#ê┬α╩▐#ê┬ß╩▐#ê┬Γ╩π#ê┬Σ╩σ#ê╦µMê╬τMê╨ΦMêΘΩMê╥δMê╘∞Mê╓φMê╪εMê┌∩Mê▄≡Mêπ±Mêσ≥Mê┬≤╩⌠#ê┬⌡╩⌠#ê┬÷╩⌠#ê┬≤≈°#ê┬⌡≈∙#ê┬÷≈·#ê⌠√Mêⁿ²Mê┬■╩ #ê┬ü@╩üA#ê┬üB╩üC#ê┬üD╩üE#ê┬üF╩üG#ê┬üH╩üI#ê┬üJ╩üK#ê üLMêüAüMMêüCüNMêüEüOMêüGüPMêüIüQMêüKüRMê┬üS╩üT#ê┬üU╩üV#ê┬üW╩üX#ê┬üY╩üX#ê┬üZ╩ü[#ê┬ü\\╩ü]#ç" [byte-compile-body #[(body &optional for-effect) "A½î┴@┬\"êAë¬q┴@\"ç" [body byte-compile-form t for-effect] 4] put byte-compile-body-do-effect byte-optimizer byte-compile-inline-expand #[(body) "└    \n\"ê├ëç" [byte-compile-body body for-effect nil] 3] byte-compile-form-do-effect #[(form) "└    \n\"ê├ëç" [byte-compile-form form for-effect nil] 3] inline byte-compile byte-compile-progn progn prog1 byte-compile-prog1 prog2 byte-compile-prog2 if byte-compile-if cond byte-compile-cond and byte-compile-and or byte-compile-or while byte-compile-while funcall byte-compile-funcall apply byte-compile-funarg mapcar mapatoms mapconcat let byte-compile-let let* byte-compile-let* #[(form) "A┬    \"ê─ë)ç" [form body byte-compile-body for-effect nil] 3] #[(form) "A@┴\n\"ê├)─AA┼\"ç" [form byte-compile-form for-effect nil byte-compile-body t] 3] #[(form) "└    A@┬\"ê├    8└    \"ê┼)╞    AAA┬\"ç" [byte-compile-form form t 2 for-effect nil byte-compile-body] 3] byte-compile-goto-if (macro . #[(cond discard tag) "└┴\n┴─┼F┴╞╟FFEç" [byte-compile-goto if cond discard 'byte-goto-if-not-nil 'byte-goto-if-not-nil-else-pop 'byte-goto-if-nil 'byte-goto-if-nil-else-pop tag] 8]) #[(form) "└    A@!ê┬    ¢¼₧├ ┼½â╟¬ü╚\"ê└╔    8\"ê╩!ê)¬¡├ ├ ┼╟\"ê└╔    8\"ê┼╠\"ê╩!ê═    AAA\"ê╩!ê*╬ëç" [byte-compile-form form 3 byte-compile-make-tag donetag byte-compile-goto for-effect byte-goto-if-nil byte-goto-if-nil-else-pop 2 byte-compile-out-tag elsetag byte-goto byte-compile-body nil] 3] #[(clauses) "└ ┴ëAë½╘@ë@╞=¼ì\n@ó╟=½Å\n@úó½ë╞\nB┴ë¬\\A½W╚\n@!ê\nA¼Ä╔\n½â╦¬ü╠\"ê¬@└ ╔═\"ê╬\nA\n\"ê╔╧\"ê╨!ê¬&\nA½Ü\n@╞=¼ö╚\n@!ê╔\n½â═¬ü╤\"ê\nA\n╬\n\"ê┴\n)╨!+ç" [byte-compile-make-tag nil clause nexttag donetag clauses t quote byte-compile-form byte-compile-goto for-effect byte-goto-if-not-nil byte-goto-if-not-nil-else-pop byte-goto-if-nil byte-compile-body byte-goto byte-compile-out-tag byte-goto-if-nil-else-pop body] 4] #[(form) "└     A\n¼Å─┼    \"ê╟ë)¬½\nA½ù┼\n@!ê╚½â╔¬ü╩\"ê\nAë¬f\n@┼    \"ê╟)╦!*ç" [byte-compile-make-tag form args failtag t byte-compile-form for-effect nil byte-compile-goto byte-goto-if-nil byte-goto-if-nil-else-pop byte-compile-out-tag] 4] #[(form) "└     A\n¼Å─┼    \"ê─ë)¬½\nA½ù┼\n@!ê╟½â╚¬ü╔\"ê\nAë¬f\n@┼    \"ê─)╩!*ç" [byte-compile-make-tag form args wintag nil byte-compile-form for-effect byte-compile-goto byte-goto-if-not-nil byte-goto-if-not-nil-else-pop byte-compile-out-tag] 4] #[(form) "└ └ ├    !ê─A@!ê╞½â╚¬ü╔\n\"ê╩AA╦\"ê╞╠    \"ê├\n!ê═ë*ç" [byte-compile-make-tag looptag endtag byte-compile-out-tag byte-compile-form form byte-compile-goto for-effect byte-goto-if-nil byte-goto-if-nil-else-pop byte-compile-body t byte-goto nil] 3] #[(form) "└┴\nA\"ê├─\nAAG\"ç" [mapcar byte-compile-form form byte-compile-out byte-call] 3] #[(form) "A@ë½ÿ    @:½ë┬    @A@!ê¬ä├─!ê    Aë¼h)╞A@!    ½û╟╚    @:½à    @@¬é    @\"ê    Aë¼jAA    ╩    \"ê─)╠═A@G\"*ç" [form varlist byte-compile-form byte-compile-push-constant nil byte-compile-bound-variables reverse byte-compile-variable-ref byte-varbind body byte-compile-body for-effect byte-compile-out byte-unbind] 4] #[(form) "┴\nA@!½ñ@:¼å─┼!ê¬ì╞@A@!êë@@áê╟╚@\"êAë¼\\\nAA    ╩    \"ê┼)╠═\nA@G\"*ç" [byte-compile-bound-variables copy-sequence form varlist byte-compile-push-constant nil byte-compile-form byte-compile-variable-ref byte-varbind body byte-compile-body for-effect byte-compile-out byte-unbind] 4] /= byte-compile-negated atom nlistp byte-compile-negated-op = consp listp #[(form) "└    !┬    \"ê─ë)ç" [byte-compile-negation-optimizer form byte-compile-form for-effect nil] 3] byte-compile-negation-optimizer #[(form) "└    @┬N«à├─    @\"    ABDç" [not form byte-compile-negated-op error "compiler error: %s has no byte-compile-negated-op property"] 4] catch byte-compile-catch unwind-protect byte-compile-unwind-protect condition-case byte-compile-condition-case save-excursion byte-compile-save-excursion save-restriction byte-compile-save-restriction save-window-excursion byte-compile-save-window-excursion with-output-to-temp-buffer byte-compile-with-output-to-temp-buffer #[(form) "└    A@!ê┬├─    AAB\"!ê╞╟╚\"ç" [byte-compile-form form byte-compile-push-constant byte-compile-top-level progn for-effect byte-compile-out byte-catch 0] 4] #[(form) "└┴\nAA├\"!ê─┼╞\"ê\nA@╟\n\"ê╔)─╩╦\"ç" [byte-compile-push-constant byte-compile-top-level-body form t byte-compile-out byte-unwind-protect 0 byte-compile-form for-effect nil byte-unbind 1] 4] #[(form) "A@ë½à    \nB¬ü\n    9¼ç├─┼    !\"ê╞    !ê╞╟╚8    \"!êAAA╩ë½╔@ë@ë9¼è├╧┼!\"ê¬Ü╨=¼ö╤N;½ç╥N:¼å├╙\"ê╘A    \"BB*Aë¼7╞ƒ!ê*╒╓╫\"*ç" [form var byte-compile-bound-variables byte-compile-warn "%s is not a variable-name or nil (in condition-case)" prin1-to-string byte-compile-push-constant byte-compile-top-level 2 for-effect nil compiled-clauses clauses clause condition "%s is not a symbol naming a condition (in condition-case)" t error-message error-conditions "%s is not a known condition name (in condition-case)" byte-compile-top-level-body byte-compile-out byte-condition-case 0] 5] #[(form) "└┴┬\"êA┼\"ê╟)└╚╔\"ç" [byte-compile-out byte-save-excursion 0 form body byte-compile-body for-effect nil byte-unbind 1] 3] #[(form) "└┴┬\"êA┼\"ê╟)└╚╔\"ç" [byte-compile-out byte-save-restriction 0 form body byte-compile-body for-effect nil byte-unbind 1] 3] #[(form) "└┴\nA\"!ê─┼╞\"ç" [byte-compile-push-constant byte-compile-top-level-body form for-effect byte-compile-out byte-save-window-excursion 0] 4] #[(form) "└    A@!ê┬├─\"ê┼    AA!ê┬╞─\"ç" [byte-compile-form form byte-compile-out byte-temp-output-buffer-setup 0 byte-compile-body byte-temp-output-buffer-show] 3] defun byte-compile-defun defmacro byte-compile-defmacro defvar byte-compile-defvar defconst autoload byte-compile-autoload lambda byte-compile-lambda-form] 4)
(byte-code "└┴Mê┬├Mê─┼Mê╞╟Mê╚╔Mê╩╦Mê╠═Mê╬╧Mê╨╤Mê╥╙Mç" [byte-compile-defun #[(form) "└┴┬A@D─┼╞AAB!!E!ê╟ ê╚A@!ç" [byte-compile-two-args fset quote form byte-compile-byte-code-maker byte-compile-lambda lambda byte-compile-discard byte-compile-constant] 7] byte-compile-defmacro #[(form) "└┴\nA@D├─┼\nAAB!!ëó╟=½ç╚╔E¬ê┴╩╦!BD)E┴\nA@DD═\"ê╧ë)ç" [fset quote form byte-compile-byte-code-maker byte-compile-lambda lambda code make-byte-code cons 'macro macro eval body byte-compile-body for-effect nil] 7] byte-compile-defvar #[(form) "A@┴8┬8╞>½åBAA¡ù@╔=½å╩E¬ï╦╠═DD╩EE¡ç╬═D╧F═DE╤\"ê╙ë,ç" [form 2 3 string value var free-vars byte-compile-warnings byte-compile-bound-variables defconst setq or boundp quote put 'variable-documentation body byte-compile-body for-effect nil] 5] byte-compile-autoload #[(form) "└    8:½ê└    8@┬=¬ï└    89½ç└    8├>½┤─    8:½ê─    8@┬=¬ï─    89½ç─    8├>½Ö┼─    8!½Æ╞┼└    8!!¼ë╟╚┼    A@!\"ê╔    !ç" [1 form quote (nil t) 5 eval fboundp byte-compile-warn "The compiler ignores `autoload' except at top level.  You should \n     probably put the autoload of the macro `%s' at top-level." byte-compile-normal-call] 4] byte-compile-lambda-form #[(form) "└┴!ç" [error "`lambda' used as function name is invalid"] 2] byte-compile-make-tag #[nil "└    TëDç" [TAG byte-compile-tag-number] 3] byte-compile-out-tag #[(tag) "    BAA½ù\n½ÄAA\nU¼ç├─A@\"êAAëçA\níç" [tag byte-compile-output byte-compile-depth error "bytecomp bug: depth conflict at tag %d"] 3] byte-compile-goto #[(opcode tag) "    B\nB    A>½äS¬üíê┼=?¡éSëç" [opcode tag byte-compile-output byte-goto-always-pop-ops byte-compile-depth byte-goto] 3] byte-compile-out #[(opcode offset) "    B\nB├=½å    Zëç┼=½ä╞ëçJH«â    S[\\ë]ëç" [opcode offset byte-compile-output byte-call byte-compile-depth byte-return nil byte-stack+-info byte-compile-maxdepth] 4] byte-compile-annotate-call-tree #[(form) "└\n@₧ë½Æ┼    8>¼ö    A    A@Báê¬ë\n@C└EB₧ë½ö\n@╞    8>«û    AA\n@╞    8Bá¬è└\n@CEBë)ç" [nil entry form byte-compile-call-tree byte-compile-current-form 1 2] 4]] 2)
(fset 'byte-compile-report-call-tree #[(&optional filename) "└┴!ê┬É┬qê├ ê└─\"ê╞¼ç«É╔¬ì;½ä¬ä╩!╦╠!═▒꽬╬╨=½â╤¬£╥=½â╙¬ö╘=½â╒¬î╓=½â╫¬ä╪┘\"\"└┴!êp┌ëëëëâh
▀@@\"ê@A@α@8ßΓ@@ë!¼è¼âπ¬αΣ¬▌σKë!½âµ¬╨9½çτΦ\"¬─Θ!½âΩ¬╗:¼âδ¬│@∞=½ûΘA!¼ëφAAA₧½âε¬Ö∩¬ûφAA₧½â≡¬ï@±=½â≥¬ü╔τ≤GGGG\\$⌠▒ê½ó⌡cê`÷@½ê≈°∙#¬ü·▒ê÷;ⁿ`\"ê)½Ü²cê`÷≈°∙#▒ê÷;ⁿ`\"ê)⌠cêAëäz└■!ê┌?½╖@A@¼¿@@뽃ü@üA\"¼öüBü@┌\"!¼ç?B?Aë¼I?½¥üC;üDcê`≈°?ƒ∙#cêⁿ`\"ê).└üE!æç" [message "Generating call tree..." "*Call-Tree*" erase-buffer "Generating call tree (sorting on %s)..." byte-compile-call-tree-sort "Call tree for " byte-compile-current-file filename "???" buffer-name " sorted on " prin1-to-string ":\n\n" sort byte-compile-call-tree callers #[(x y) "A@G    A@GWç" [x y] 2] calls #[(x y) "└    8G└\n8GWç" [2 x y] 3] calls+callers #[(x y) "A@G┴8G\\\nA@G┴\n8G\\Wç" [x 2 y] 4] name #[(x y) "@    @Öç" [x y] 2] error "byte-compile-call-tree-sort: %s - unknown sort mode" nil p f b rest prin1 2 "    " fboundp " <top level>" " <not defined>" subrp " <subr>" format " ==> %s" compiled-function-p "<compiled function>" "<malformed function>" macro byte-code " <compiled macro>" " <macro>" "<compiled lambda>" lambda "<function>" " (%d callers + %d calls = %d)" "\n" "  called by:\n" "    " mapconcat symbol-name ", " "<top level>" fill-prefix fill-region-as-paragraph "  calls:\n" "Generating call tree...(finding uncalled functions...)" uncalled byte-compile-fdefinition t commandp "  " "Noninteractive functions not known to be called:\n  " "Generating call tree...done."] 10 "\
Display a buffer describing which functions have been called, what functions
called them, and what functions they call.  This buffer will list all functions
whose definitions have been compiled since this emacs session was started, as
well as all functions called by those functions.

The call tree only lists functions called, not macros or inline functions
expanded.  Those functions which the byte-code interpreter knows about directly
(eq, cons, etc.) are not reported.

The call tree also lists those functions which are not known to be called
(that is, to which no calls have been compiled.)  Functions which can be
invoked interactively are excluded from this list." nil])
(fset 'batch-byte-compile #[nil "¼ä┴┬!ê├½δ┼╞@!!½╒╟@!├ë    ë\n½├╦\n@\"½▓═\n@!¼½╞\n@@\"ë    ½ƒ╬    !ë½û╧!½É╨    \"½ê╤    !¼é╥\nAë\n¼=+¬ê╤@!¼é╥Aë¼╙╘!ê╒    ½â╓¬ü╫!)ç" [noninteractive error "batch-byte-compile is to be used only with -batch" nil command-line-args-left file-directory-p expand-file-name directory-files dest source files string-match emacs-lisp-file-regexp auto-save-file-name-p byte-compile-dest-file file-exists-p file-newer-than-file-p batch-byte-compile-1 t message "Done" kill-emacs 1 0] 4 "\
Runs `byte-compile-file' on the files remaining on the command line.
Must be used only with -batch, and kills emacs on completion.
Each file will be processed even if an error occurred previously.
For example, invoke \"emacs -batch -f batch-byte-compile $emacs/ ~/*.el\""])
(fset 'batch-byte-compile-1 #[(file) "└┴┬Åç" [err (byte-code "└    !ê┬ç" [byte-compile-file file t] 2) ((error (byte-code "└    A½â┬¬ü├    @┼N╞    A!$ê╟ç" [message err ">>Error occurred processing %s: %s (%s)" ">>Error occurred processing %s: %s" file error-message prin1-to-string nil] 6)))] 3])
(fset 'batch-byte-recompile-directory #[nil "¼ä┴┬!ê¼é─½ï┼@!êAë¼u╞╟!ç" [noninteractive error "batch-byte-recompile-directory is to be used only with -batch" command-line-args-left (".") byte-recompile-directory kill-emacs 0] 3 "\
Runs `byte-recompile-directory' on the dirs remaining on the command line.
Must be used only with -batch, and kills emacs on completion.
For example, invoke \"emacs -batch -f batch-byte-recompile-directory .\""])
(byte-code "└┴┬\"ê└├─\"ê└┼╞\"ê└╟╚\"ê└╔╩\"ê└╦╠\"ê═╬!½ä¼⌐╨Ö¼ú└╤╥\"ê└╙╘\"ê╒╓╫\"ê╒╪┘\"ê╒┌█\"ê╒▄▌\"ê╒▐▀\"êαß\"½è╒Γπ\"ê└Σσ\"êµτ!ê═Φ!½äΘΩMê└ç" [make-obsolete mod % dot point dot-max point-max dot-min point-min dot-marker point-marker read-no-blanks-input read-string boundp epoch::version emacs-version "19" buffer-flush-undo buffer-disable-undo baud-rate "use the baud-rate variable instead" make-obsolete-variable auto-fill-hook auto-fill-function blink-paren-hook blink-paren-function lisp-indent-hook lisp-indent-function temp-buffer-show-hook temp-buffer-show-function inhibit-local-variables "use enable-local-variables (with the reversed sense.)" string-match "Lucid" unread-command-char unread-command-event update-extent set-extent-endpoints provide byte-compile byte-code-meter byte-compile-report-ops #[nil "└É└qê┴┬ëëë╟W¡▌┴HH┬┬    W½î╩╦\"╩╠\"¬ÄY½êZH╧╨\"cê╤!cê½ê╥╙!╘▒ê╒jê╙!╓▒êTë¬,æç" ["*Meter*" 0 nil off op n i 256 byte-code-meter byte-nth logand 7 248 byte-constant byte-code-vector format "%-4d" symbol-name " [" int-to-string "]" 40 "\n"] 6]] 3)